home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / text / misc / MusicBase_1.25.lha / MB_1.25 / InstallPolish < prev    next >
Text File  |  1998-08-28  |  1KB  |  69 lines
  1.  
  2. (set sdir (pathonly @icon))
  3.  
  4. (message
  5. "\n\n\n\nTen skrypt instaluje MusicBase w wersji 1.25"
  6. )
  7.  
  8. (set ID_dest (askdir
  9.       (prompt "Gdzie mam zainstalowaê MusicBase?")
  10.       (help "Wybierz katalog do zainstalowania MusicBase")
  11.       (default @default-dest)
  12.    )
  13. )
  14. (set @default-dest ID_dest)
  15.  
  16. (set ans (askbool 
  17.    (
  18.       (prompt "\nUtworzyê nowy katalog o nazwie MusicBase?")
  19.          (help "")
  20.       )
  21.    )
  22. )
  23. (if (= 1 ans)
  24.    (
  25.       (makedir (tackon ID_dest "MusicBase"))
  26.  
  27. (set ID_dest (tackon ID_dest "MusicBase"))
  28. ))
  29. (set @default-dest ID_dest)
  30.  
  31. (working ("Kopiujë MusicBase"))
  32. (copyfiles
  33.    (source (tackon sdir "Polski") (infos))
  34.    (dest ID_dest)
  35.    (all)
  36.    (help @copyfiles-help)
  37. )
  38.  
  39. (working ("Kopiujë plik readme"))
  40. (copyfiles
  41.    (source (tackon sdir "MusicBase.readme"))
  42.    (dest ID_dest)
  43.    (help @copyfiles-help)
  44. )
  45.  
  46. (working ("Kopiujë plik menu"))
  47. (copyfiles
  48.    (source (tackon sdir "Menu.guide"))
  49.    (dest ID_dest)
  50.    (help @copyfiles-help)
  51. )
  52.  
  53. (makedir (tackon ID_dest "Data"))
  54. (delete ("Data.info"))
  55.  
  56. (set ID_dest (tackon ID_dest "Data"))
  57.  
  58. (working ("Kopiujë dane tekstów muzycznych"))
  59. (copyfiles
  60.    (source (tackon sdir "Data"))
  61.    (dest ID_dest)
  62.    (all)
  63.    (help @copyfiles-help)
  64. )
  65. (exit
  66. "\n \n \n \nMiîej zabawy z MusicBase!\nTwórz bazë ze mnâ!\nPrzyôlij mi teksty muzyczne!"
  67. (quiet)
  68. )
  69.